static char SccsId[] = "@(#)aslchgz.c	1.4   10/6/95";
/*
 *         Copyright (c) KUBOTA Corporation and HUDSON SOFT,
 *                  1994, 1995 All Rights Reserved
 *
 *  This software comprises unpublished confidential information of
 *  KUBOTA Corp. and HUDSON SOFT. It may not be used, copied or made
 *  available to anyone, except in accordance with the license under
 *  which it is furnished.
 */

#define	_ASLLIB_
#define	_ASLCHGZ_C_

#include <farl.h>
#include <asl.h>

/*----------------------------------------------------------------------------*/
void
ASLChangeZ( ASLSct *sct, Bool zcmp, Bool zwen, unsigned short zval )
{
	sct->cntl = ( sct->cntl & ~( ASL_MSK_ZCMP | ASL_MSK_ZWEN ) )
						| ( zcmp ? ASL_VAL_ZCMP : 0 )
						| ( zwen ? ASL_VAL_ZWEN : 0 );
	sct->z	  = zval;
}

/*----------------------------------------------------------------------------*/
